home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / arcade / shilton_football / 5-a-side.bak / 5-a-side.amosSourceCode next >
AMOS Source Code  |  1993-04-24  |  32KB  |  860 lines
  1. Screen Open 0,320,240,16,Lowres : Cls 0 : DIV=3 : Flash Off : Get Sprite Palette 
  2. Limit Mouse 0,0 To 450,312 : Paper 0 : Locate 0,0 : Print " "
  3.  
  4. Locate ,1 : Pen 11 : Centre "PETER SHILTON'S"
  5. Locate ,2 : Centre "GREEN ARMY"
  6.  
  7. Locate ,4 : Pen 6 : Centre "WRITTEN IN AMOS"
  8. Locate ,5 : Centre "BY STEPHEN WEBBER"
  9.  
  10. Locate ,7 : Pen 2 : Centre "G-GOALKEPPING   D-DEFENDING"
  11. Locate ,8 : Centre "M-MIDFIELD   A-ATTACK"
  12. Locate ,9 : Centre " GP-GAMES PLAYED   GS-GOALS SCORED"
  13. Locate 0,11 : Centre "If you want to play in goal pick"
  14. Locate 0,12 : Centre "Peter Shilton."
  15. Locate 0,14 : Centre "All ratings are out of 10."
  16. Locate 0,16 : Centre "Players skills decrease at 31."
  17. Locate 0,24 : Pen 4 : Centre "Click left mouse button to continue."
  18. Curs Off : Repeat : Until 1=Mouse Key
  19.  
  20. NAME$="S Webber" : TEAM$="Argyle" : WEEK=1 : SEASON=1 : MONEY=1500 : TACKE=2
  21. Dim NAME$(105) : Dim DEF(105),MID(105),TACK(105),GOAL(105),AGE(105)
  22. Dim TNAME$(18) : Dim TDEF(18),TMID(18),TTACK(18),TGOAL(18),PEAR(18),G(18),TAGE(18)
  23. TATIC$="442" : DEFE=4 : MIDE=4
  24. Dim TEAM$(12) : Dim TP(12),CGOAL(12),CDEF(12),CMID(12),CTACK(12),GS(12),SKILL(12),TATIC$(7)
  25. Dim TRANS(5) : Dim PTS(8) : TP(8)=11 : Dim POS(8)
  26. Dim WIN(8),TIE(8),LOSE(8)
  27.  
  28. For I=1 To 13 : Read TNAME$(I) : Next 
  29.  
  30. For I=1 To 105 : Read NAME$(I) : Read GOAL(I),DEF(I),MID(I),TACK(I) : Next 
  31.  
  32. For I=1 To 105 : GOAL(I)=GOAL(I)+Rnd(3) : DEF(I)=DEF(I)+Rnd(3) : MID(I)=MID(I)+Rnd(3) : TACK(I)=TACK(I)+Rnd(3) : AGE(I)=Rnd(13)+17 : Next 
  33.  
  34. For I=1 To 7 : Read TEAM$(I) : Read TP(I),CGOAL(I),CDEF(I),CMID(I),CTACK(I),GS(I),SKILL(I) : Read TATIC$(I) : Next 
  35.  
  36. For I=9 To 12 : Read TEAM$(I) : Read TP(I),CGOAL(I),CDEF(I),CMID(I),CTACK(I),GS(I) : Next 
  37.  
  38. TNAME$(14)="P Shilton" : TGOAL(14)=9
  39.  
  40. TGOAL(1)=Rnd(2)+4 : TDEF(1)=Rnd(2) : TMID(1)=Rnd(2) : TTACK(1)=Rnd(2)
  41.  
  42. For A=2 To 5 : TGOAL(A)=Rnd(3) : TDEF(A)=Rnd(3)+3 : TMID(A)=2+Rnd(2) : TTACK(A)=Rnd(2) : Next 
  43.  
  44. For A=6 To 9 : TGOAL(A)=Rnd(2) : TDEF(A)=Rnd(3) : TMID(A)=Rnd(3)+3 : TTACK(A)=2+Rnd(2) : Next 
  45.  
  46. For A=10 To 13 : TGOAL(A)=Rnd(2) : TDEF(A)=Rnd(3) : TMID(A)=2+Rnd(2) : TTACK(A)=Rnd(3)+3 : Next 
  47.  
  48. For A=1 To 13 : TAGE(A)=Rnd(10)+20 : Next 
  49.  
  50. TAGE(14)=45
  51.  
  52. TTACK(6)=Rnd(2)+3
  53.  
  54. Y Mouse=300
  55. MAIN:
  56. Cls 0 : Pen 2 : Paper 0 : Print " "
  57. Locate ,26 : Centre "PLAY  TATICS  BUY  SELL  LEAGUE"
  58. Locate ,28 : Centre "SAVE  FIXTURE  LOAD"
  59. Locate 0,0 : Print TEAM$
  60. If DIV<>1 Then Locate 10,0 : Print "DIVISION";DIV-1
  61. If DIV=1 Then Locate 7,0 : Print "PREMIER DIVISION"
  62. Locate 0,1 : Print "Week";WEEK : Locate 12,1 : Print "Season";SEASON
  63. Locate 14,2 : Print "�";MONEY
  64. Locate 0,2 : Print TATIC$+" Formation"
  65. Pen 5 : Locate 16,5 : Print "G D M A AGE GP  GS"
  66.  
  67. WAGES=0
  68. For I=1 To 11 : 
  69. If TNAME$(I)<>"" Then WAGES=WAGES+TGOAL(I)+TMID(I)+TDEF(I)+TTACK(I)
  70. Next 
  71. WAGES=WAGES*5
  72.  
  73. For I=1 To 18
  74.    If I=1 Then Pen 4
  75.    If I=>2 and I<=DEFE+1 Then Pen 6
  76.    If I=>DEFE+2 and I<=MIDE+DEFE+2 Then Pen 12
  77.    If I=>DEFE+MIDE+2 Then Pen 5
  78.    If I>11 Then Pen 7
  79.    Locate 0, : Print I;" "; : Pen 2 : Locate 4, : Print TNAME$(I);
  80.    If TNAME$(I)<>"" Then Locate 15, : Print TGOAL(I);TDEF(I);TMID(I);TTACK(I);TAGE(I); : Locate 27, : Print PEAR(I); : Locate 31, : Print G(I) : Else Print 
  81. Next 
  82.  
  83. Locate 24,0 : Pen 4 : Print "GOALKEEPING";TGOAL(1) : If TNAME$(1)<>"" Then GOAL=TGOAL(1) : Else GOAL=0
  84. Locate 24,1 : Pen 6 : Print "DEFENDING";
  85. For I=2 To DEFE+1
  86. If TNAME$(I)<>"" Then TREE=TREE+TDEF(I)
  87. Next : DEF=TREE
  88. Locate 35,1 : Print TREE : TREE=0
  89. Locate 24,2 : Pen 12 : Print "MIDFIELD"; : 
  90. For I=2+DEFE To MIDE+DEFE+1
  91. If TNAME$(I)<>"" Then TREE=TREE+TMID(I)
  92. Next : MID=TREE
  93. Locate 35, : Print TREE : TREE=0
  94. Locate 24,3 : Pen 5 : Print "ATTACKING"; : 
  95. For I=DEFE+MIDE+2 To 11
  96. If TNAME$(I)<>"" Then TREE=TREE+TTACK(I)
  97. Next : SCORE=TREE
  98. Locate 35, : Print TREE : TREE=0
  99. Pen 2
  100.  
  101. A=0 : I=0
  102. Do 
  103.    If 1=Mouse Key and 106>Y Mouse and 100<=Y Mouse Then Locate 0,6 : If A=0 Then Print "*" : A=1 : Wait 5 : Else Wait 1 : If A=1 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=1 : Goto CHANGE
  104.    If 1=Mouse Key and 114>Y Mouse and 107<=Y Mouse Then Locate 0,7 : If A=0 Then Print "*" : A=2 : Wait 5 : Else Wait 1 : If A=2 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=2 : Goto CHANGE
  105.    If 1=Mouse Key and 121>Y Mouse and 115<=Y Mouse Then Locate 0,8 : If A=0 Then Print "*" : A=3 : Wait 5 : Else Wait 1 : If A=3 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=3 : Goto CHANGE
  106.    If 1=Mouse Key and 130>Y Mouse and 122<=Y Mouse Then Locate 0,9 : If A=0 Then Print "*" : A=4 : Wait 5 : Else Wait 1 : If A=4 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=4 : Goto CHANGE
  107.    If 1=Mouse Key and 137>Y Mouse and 131<=Y Mouse Then Locate 0,10 : If A=0 Then Print "*" : A=5 : Wait 5 : Else Wait 1 : If A=5 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=5 : Goto CHANGE
  108.    If 1=Mouse Key and 145>Y Mouse and 138<=Y Mouse Then Locate 0,11 : If A=0 Then Print "*" : A=6 : Wait 5 : Else Wait 1 : If A=6 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=6 : Goto CHANGE
  109.    If 1=Mouse Key and 153>Y Mouse and 146<=Y Mouse Then Locate 0,12 : If A=0 Then Print "*" : A=7 : Wait 5 : Else Wait 1 : If A=7 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=7 : Goto CHANGE
  110.    If 1=Mouse Key and 162>Y Mouse and 154<=Y Mouse Then Locate 0,13 : If A=0 Then Print "*" : A=8 : Wait 5 : Else Wait 1 : If A=8 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=8 : Goto CHANGE
  111.    If 1=Mouse Key and 170>Y Mouse and 163<=Y Mouse Then Locate 0,14 : If A=0 Then Print "*" : A=9 : Wait 5 : Else Wait 1 : If A=9 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=9 : Goto CHANGE
  112.    If 1=Mouse Key and 178>Y Mouse and 171<=Y Mouse Then Locate 0,15 : If A=0 Then Print "*" : A=10 : Wait 5 : Else Wait 1 : If A=10 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=10 : Goto CHANGE
  113.    If 1=Mouse Key and 186>Y Mouse and 179<=Y Mouse Then Locate 0,16 : If A=0 Then Print "*" : A=11 : Wait 5 : Else Wait 1 : If A=11 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=11 : Goto CHANGE
  114.    If 1=Mouse Key and 194>Y Mouse and 187<=Y Mouse Then Locate 0,17 : If A=0 Then Print "*" : A=12 : Wait 5 : Else Wait 1 : If A=12 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=12 : Goto CHANGE
  115.    If 1=Mouse Key and 202>Y Mouse and 195<=Y Mouse Then Locate 0,18 : If A=0 Then Print "*" : A=13 : Wait 5 : Else Wait 1 : If A=13 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=13 : Goto CHANGE
  116.    If 1=Mouse Key and 209>Y Mouse and 203<=Y Mouse Then Locate 0,19 : If A=0 Then Print "*" : A=14 : Wait 5 : Else Wait 1 : If A=14 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=14 : Goto CHANGE
  117.    If 1=Mouse Key and 217>Y Mouse and 210<=Y Mouse Then Locate 0,20 : If A=0 Then Print "*" : A=15 : Wait 5 : Else Wait 1 : If A=15 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=15 : Goto CHANGE
  118.    If 1=Mouse Key and 225>Y Mouse and 218<=Y Mouse Then Locate 0,21 : If A=0 Then Print "*" : A=16 : Wait 5 : Else Wait 1 : If A=16 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=16 : Goto CHANGE
  119.    If 1=Mouse Key and 233>Y Mouse and 226<=Y Mouse Then Locate 0,22 : If A=0 Then Print "*" : A=17 : Wait 5 : Else Wait 1 : If A=17 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=17 : Goto CHANGE
  120.    If 1=Mouse Key and 241>Y Mouse and 234<=Y Mouse Then Locate 0,23 : If A=0 Then Print "*" : A=18 : Wait 5 : Else Wait 1 : If A=18 Then Print " " : A=0 : Else Wait 1 : If A<>0 Then I=18 : Goto CHANGE
  121.  
  122.    If 1=Mouse Key and X Mouse=>159 and X Mouse<=192 and Y Mouse=>257 and Y Mouse<=265 Then Goto GAME
  123.    If 1=Mouse Key and X Mouse=>209 and X Mouse<=255 and Y Mouse=>257 and Y Mouse<=265 Then Goto TATIC
  124.    If 1=Mouse Key and X Mouse=>272 and X Mouse<=295 and Y Mouse=>257 and Y Mouse<=265 Then Goto BUY
  125.    If 1=Mouse Key and X Mouse=>312 and X Mouse<=343 and Y Mouse=>257 and Y Mouse<=265 Then Wait 1 : If A=0 Then Bell : Else Goto SELL
  126.    If 1=Mouse Key and X Mouse=>360 and X Mouse<=406 and Y Mouse=>257 and Y Mouse<=265 Then Gosub TABLE : Goto MAIN
  127.    If 1=Mouse Key and X Mouse=>256 and X Mouse<=311 and Y Mouse=>274 and Y Mouse<=281 Then Goto TURE
  128.    If 1=Mouse Key and X Mouse=>208 and X Mouse<=239 and Y Mouse=>274 and Y Mouse<=281 Then Goto KEEP
  129.    If 1=Mouse Key and X Mouse=>328 and X Mouse<=359 and Y Mouse=>274 and Y Mouse<=281 Then Goto RESTART
  130.  
  131. Curs Off 
  132.  
  133. Loop 
  134.  
  135. KEEP:
  136. Locate 0,26 : For I=1 To 39 : Print " "; : Next 
  137. Locate 0,28 : For I=1 To 39 : Print " "; : Next 
  138. Locate 12,27 : Pen 6 : Print "CONTINUE"
  139. Locate 22,27 : Pen 4 : Print "CANCEL" : Pen 2
  140. Do 
  141. If 1=Mouse Key and X Mouse=>225 and X Mouse<=287 and Y Mouse=>266 and Y Mouse<=273 Then Goto AIN
  142. If 1=Mouse Key and X Mouse=>304 and X Mouse<=351 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  143. Loop 
  144.  
  145. AIN:
  146. Open Out 1,"Saves.dat"
  147. Print #1,MONEY
  148. Print #1,MUG
  149. Print #1,WEEK
  150. Print #1,SEASON
  151. Print #1,DIV
  152. Print #1,TATIC$
  153. For I=1 To 18
  154. Print #1,TNAME$(I)
  155. Print #1,TDEF(I)
  156. Print #1,TMID(I)
  157. Print #1,TTACK(I)
  158. Print #1,TGOAL(I)
  159. Print #1,PEAR(I)
  160. Print #1,G(I)
  161. Print #1,TAGE(I)
  162. Next 
  163. For I=1 To 8
  164. Print #1,PTS(I)
  165. Print #1,WIN(I)
  166. Print #1,TIE(I)
  167. Next 
  168. Close 1
  169. Goto MAIN
  170.  
  171.  
  172. RESTART:
  173. Locate 0,26 : For I=1 To 39 : Print " "; : Next 
  174. Locate 0,28 : For I=1 To 39 : Print " "; : Next 
  175. Locate 12,27 : Pen 6 : Print "CONTINUE"
  176. Locate 22,27 : Pen 4 : Print "CANCEL" : Pen 2
  177. Do 
  178. If 1=Mouse Key and X Mouse=>225 and X Mouse<=287 and Y Mouse=>266 and Y Mouse<=273 Then Goto AINL
  179. If 1=Mouse Key and X Mouse=>304 and X Mouse<=351 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  180. Loop 
  181.  
  182. AINL:
  183. RDIV=DIV
  184. Open In 1,"Saves.dat"
  185. Input #1,MONEY
  186. Input #1,MUG
  187. Input #1,WEEK
  188. Input #1,SEASON
  189. Input #1,DIV
  190. Line Input #1,TATIC$
  191. For I=1 To 18
  192. Line Input #1,TNAME$(I)
  193. Input #1,TDEF(I)
  194. Input #1,TMID(I)
  195. Input #1,TTACK(I)
  196. Input #1,TGOAL(I)
  197. Input #1,PEAR(I)
  198. Input #1,G(I)
  199. Input #1,TAGE(I)
  200. Next 
  201. For I=1 To 8
  202. Input #1,PTS(I)
  203. Input #1,WIN(I)
  204. Input #1,TIE(I)
  205. Next 
  206.  
  207. TRANS(1)=Rnd(14)+1
  208. TRANS(2)=Rnd(29)+16
  209. TRANS(3)=Rnd(29)+46
  210. TRANS(4)=Rnd(29)+76
  211. TRANS(5)=Rnd(89)+16
  212.  
  213. DEFE=Val(Left$(TATIC$,1))
  214. MIDE=Val(Mid$(TATIC$,2,1))
  215. TACKE=11-(DEFE+MIDE+1)
  216.  
  217. Close 1
  218.  
  219. If RDIV=DIV Then Goto MAIN
  220. Repeat 
  221. For I=1 To 7 : Read TEAM$(I) : Read TP(I),CGOAL(I),CDEF(I),CMID(I),CTACK(I),GS(I),SKILL(I),TATIC$(I) : Next 
  222. RDIV=RDIV-1
  223. Until RDIV=DIV
  224. Goto MAIN
  225.  
  226. CHANGE:
  227. 'Locate 3,20 : Input "Swap who?";I 
  228. 'Locate 3,20 : Input "Who with?";A 
  229. If TNAME$(I)="P Shilton" and A=>2 and A<=11 Then Bell : Goto MAIN
  230. If TNAME$(A)="P Shilton" and I=>2 and I<=11 Then Bell : Goto MAIN
  231. GHOST$=TNAME$(I) : TGOAL=TGOAL(I) : TDEF=TDEF(I) : TMID=TMID(I) : TTACK=TTACK(I) : PEAR=PEAR(I) : G=G(I) : AGE=TAGE(I)
  232. TNAME$(I)=TNAME$(A) : TGOAL(I)=TGOAL(A) : TDEF(I)=TDEF(A) : TMID(I)=TMID(A) : TTACK(I)=TTACK(A) : PEAR(I)=PEAR(A) : G(I)=G(A) : TAGE(I)=TAGE(A)
  233. TNAME$(A)=GHOST$ : TGOAL(A)=TGOAL : TDEF(A)=TDEF : TMID(A)=TMID : TTACK(A)=TTACK : PEAR(A)=PEAR : G(A)=G : TAGE(A)=AGE
  234. Goto MAIN
  235.  
  236. TATIC:
  237. Locate 7,24 : Input "Enter new formation-";TATIC$
  238. DEFE=Val(Left$(TATIC$,1))
  239. MIDE=Val(Mid$(TATIC$,2,1))
  240. TACKE=11-(DEFE+MIDE+1)
  241. If DEFE<=1 Then Bell : TATIC$="442" : DEFE=4 : MIDE=4 : SCORE=4
  242. If MIDE<=1 or MIDE=>6 Then Bell : TATIC$="442" : DEFE=4 : MIDE=4 : SCORE=4
  243. If TACKE<=1 Then Bell : TATIC$="442" : DEFE=4 : MIDE=4 : SCORE=4
  244. If DEFE+MIDE+TACKE<>10 Then Bell : TATIC$="442" : DEFE=4 : MIDE=4 : SCORE=4
  245. Goto MAIN : 
  246.  
  247. BUY:
  248. If WEEK=1 Then Bell : Wait 5 : Goto MAIN
  249. Cls 0
  250. Pen 5 : Locate 20,5 : Print "G D M A AGE PRICE" : Pen 2
  251. For I=1 To 5
  252. Locate 4, : Print I;" "; : Locate 8, : Print NAME$(TRANS(I));
  253. Locate 19, : Print GOAL(TRANS(I));DEF(TRANS(I));MID(TRANS(I));TACK(TRANS(I));AGE(TRANS(I));
  254.  
  255. Print(GOAL(TRANS(I))+DEF(TRANS(I))+MID(TRANS(I))+TACK(TRANS(I)))*100
  256. Next 
  257.  
  258. Do 
  259.    If 1=Mouse Key and 106>Y Mouse and 100<=Y Mouse Then Locate 3,6 : Print "*" : A=1 : Goto MONEY
  260.    If 1=Mouse Key and 114>Y Mouse and 107<=Y Mouse Then Locate 3,7 : Print "*" : A=2 : Goto MONEY
  261.    If 1=Mouse Key and 121>Y Mouse and 115<=Y Mouse Then Locate 3,8 : Print "*" : A=3 : Goto MONEY
  262.    If 1=Mouse Key and 130>Y Mouse and 122<=Y Mouse Then Locate 3,9 : Print "*" : A=4 : Goto MONEY
  263.    If 1=Mouse Key and 137>Y Mouse and 131<=Y Mouse Then Locate 3,10 : Print "*" : A=5 : Goto MONEY
  264. Loop 
  265.  
  266. MONEY:
  267. Locate 12,27 : Pen 6 : Print "CONTINUE"
  268. Locate 22,27 : Pen 4 : Print "CANCEL" : Pen 2
  269. Do 
  270. If 1=Mouse Key and X Mouse=>304 and X Mouse<=351 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  271. If 1=Mouse Key and X Mouse=>225 and X Mouse<=287 and Y Mouse=>266 and Y Mouse<=273 Then PRICE=(GOAL(TRANS(A))+DEF(TRANS(A))+MID(TRANS(A))+TACK(TRANS(A)))*100 : Goto RED
  272. Loop 
  273.  
  274. RED:
  275. For I=1 To 18
  276. If TNAME$(I)="" Then HOT=I
  277. If TNAME$(I)=NAME$(TRANS(A)) Then Bell : Goto MAIN
  278. Next 
  279.  
  280. If MONEY-PRICE<0 Then Bell : Goto MAIN
  281. MONEY=MONEY-PRICE
  282.  
  283. TNAME$(HOT)=NAME$(TRANS(A))
  284. TGOAL(HOT)=GOAL(TRANS(A))
  285. TDEF(HOT)=DEF(TRANS(A))
  286. TMID(HOT)=MID(TRANS(A))
  287. TTACK(HOT)=TACK(TRANS(A))
  288. PEAR(HOT)=0
  289. G(HOT)=0
  290. TAGE(HOT)=AGE(TRANS(A))
  291. Goto MAIN
  292.  
  293. SELL:
  294. If TNAME$(A)="P Shilton" Then Bell : Goto MAIN
  295.  
  296. PRICE=(TGOAL(A)+TDEF(A)+TMID(A)+TTACK(A))*50
  297. Locate 10,24 : Print TEAM$(Rnd(4)+1);" offer ï¿½";PRICE
  298. Locate 0,26 : For I=1 To 39 : Print " "; : Next 
  299. Locate 0,28 : For I=1 To 39 : Print " "; : Next 
  300. Locate 12,27 : Pen 6 : Print "CONTINUE"
  301. Locate 22,27 : Pen 4 : Print "CANCEL" : Pen 2
  302.  
  303. Do 
  304. If 1=Mouse Key and X Mouse=>225 and X Mouse<=287 and Y Mouse=>266 and Y Mouse<=273 Then MONEY=MONEY+PRICE : TNAME$(A)="" : Goto MAIN
  305. If 1=Mouse Key and X Mouse=>304 and X Mouse<=351 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  306. Loop 
  307. Goto MAIN
  308.  
  309. TABLE:
  310. Cls 0 : Locate ,7 : TEAM$(8)=TEAM$
  311.  
  312. For I=1 To 8 : POS(I)=0 : Next 
  313.  
  314. Locate 19,6 : Pen 5 : Print "P  W  D  L  Pt" : Pen 2
  315.  
  316. GAME=WEEK-1
  317.  
  318. For I=1 To 8
  319. For A=1 To 8
  320. If PTS(I)+1<=PTS(A) Then POS(I)=POS(I)+1
  321. If PTS(I)=PTS(A) and I=>A+1 Then POS(I)=POS(I)+1
  322. Next 
  323. Next 
  324.  
  325. For I=1 To 8
  326. Locate 2,7+POS(I) : Print POS(I)+1;" "; : Pen TP(I) : Print TEAM$(I); : Pen 2
  327. Locate 18, : Print GAME;
  328. Locate 21, : Print WIN(I);
  329. Locate 24, : Print TIE(I);
  330. Locate 27, : Print GAME-(WIN(I)+TIE(I));
  331. Locate 30, : Print PTS(I)
  332. Next 
  333.  
  334. Wait 15 : Pen 2
  335. Repeat : Until 1=Mouse Key
  336. Return 
  337.  
  338. TURE: Print "TURES"
  339. Cls 0 : Locate 5,7
  340. For I=1 To 7
  341. Locate 5, : Print "WEEK";I;" and";I+7;
  342. Locate 20, : Pen TP(I) : Print TEAM$(I) : Pen 2
  343. Next 
  344. Locate 4,15 : Centre "FA Cup-Weeks 3,7,10 and 14"
  345. Locate 4,17 : Centre "Click on teams for info."
  346. Locate ,27 : Pen 4 : Centre "CONTINUE" : Pen 2
  347. Wait 15
  348. Do 
  349.    If 1=Mouse Key and 114>Y Mouse and 107<=Y Mouse and A=0 Then A=1
  350.    If 1=Mouse Key and 121>Y Mouse and 115<=Y Mouse and A=0 Then A=2
  351.    If 1=Mouse Key and 130>Y Mouse and 122<=Y Mouse and A=0 Then A=3
  352.    If 1=Mouse Key and 137>Y Mouse and 131<=Y Mouse and A=0 Then A=4
  353.    If 1=Mouse Key and 145>Y Mouse and 138<=Y Mouse and A=0 Then A=5
  354.    If 1=Mouse Key and 153>Y Mouse and 146<=Y Mouse and A=0 Then A=6
  355.    If 1=Mouse Key and 162>Y Mouse and 154<=Y Mouse and A=0 Then A=7
  356.  
  357.    If A<>0 Then Locate 0,19 : For I=1 To 39 : Print " "; : Next 
  358.    If A<>0 Then Locate ,19 : Centre TEAM$(A)+" formation "+TATIC$(A) : A=0
  359.    If 1=Mouse Key and X Mouse=>256 and X Mouse<=319 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  360. Loop 
  361.  
  362. GAME:
  363. Locate 0,26 : For I=1 To 39 : Print " "; : Next 
  364. Locate 0,28 : For I=1 To 39 : Print " "; : Next 
  365. If MONEY<0 Then Locate ,27 : Pen 4 : Centre "YOU'R IN DEBT!" : Bell : Wait 50 : Repeat : Until 1=Mouse Key : Pen 2 : Goto MAIN
  366. Locate 12,27 : Pen 6 : Print "CONTINUE"
  367. Locate 22,27 : Pen 4 : Print "CANCEL" : Pen 2
  368.  
  369. If MUG<>5 Then MUG=0
  370.  
  371. HS=0 : HK=0 : CK=0 : CS=0 : GO=0
  372. TEAM=WEEK
  373. If WEEK=>8 Then TEAM=WEEK-7
  374. If WEEK=3 and MUG<>6 Then TEAM=9 : MUG=1
  375. If WEEK=7 and MUG<>6 and MUG<>5 Then TEAM=10 : MUG=2
  376. If WEEK=10 and MUG<>6 and MUG<>5 Then TEAM=11 : MUG=3
  377. If WEEK=14 and MUG<>6 and MUG<>5 Then TEAM=12 : MUG=4
  378.  
  379. If WEEK=15 Then Gosub EOS
  380.  
  381.  
  382. Do 
  383. If 1=Mouse Key and X Mouse=>225 and X Mouse<=287 and Y Mouse=>266 and Y Mouse<=273 Then Goto BUM
  384. If 1=Mouse Key and X Mouse=>304 and X Mouse<=351 and Y Mouse=>266 and Y Mouse<=273 Then Goto MAIN
  385. Loop 
  386.  
  387. MUG:
  388.  
  389. BUM:
  390. Cls 0 : Pen 2 : GO=GO+1
  391.  
  392. Locate ,5 : If MUG=0 or MUG=>5 Then Centre "LEAGUE GAME"
  393. If MUG=1 Then Centre "CUP GAME"
  394. If MUG=2 Then Centre "QUARTER FINAL"
  395. If MUG=3 Then Centre "SEMI FINAL"
  396. If MUG=4 Then Centre "CUP FINAL"
  397. Locate ,7 : Centre "versus"
  398. Locate 10,7 : Pen 11 : Print TEAM$
  399. Locate 24,7 : Pen TP(TEAM) : Print TEAM$(TEAM) : Pen 2
  400. Locate ,9 : Centre "SHOTS" : Print 
  401. Centre "GOALS"
  402. Locate 23,9 : Print CK : Locate 13,9 : Print HK
  403. Locate 23,10 : Print CS : Locate 13,10 : Print HS
  404.  
  405. If GO=11 Then Goto EXTRA
  406.  
  407. If MID+Rnd(16)=>CMID(TEAM)+Rnd(16) Then Goto TACK
  408.  
  409. Locate ,12 : Pen TP(TEAM) : Centre "ATTACKING!" : Wait 50
  410. If CTACK(TEAM)+Rnd(12)<DEF+Rnd(12) Then Locate ,12 : Pen 11 : Centre "*DEFENDED*" : Wait 50 : Goto BUM
  411.  
  412. Locate ,12 : Centre TEAM$(TEAM)+" SHOOTS" : CK=CK+1 : Wait 50
  413. If TNAME$(1)="P Shilton" Then Gosub SCORE : Goto BUM
  414. If GS(TEAM)+Rnd(6)=>GOAL+Rnd(6) Then Locate ,12 : Centre TEAM$(TEAM)+" SCORES" : CS=CS+1 : G(1)=G(1)-1 Else Locate ,12 : Pen 11 : Centre "    SHOT SAVED    "
  415. Pen 2 : Wait 50 : Goto BUM
  416.  
  417. SCORE:
  418. Cls 6
  419. Ink 11
  420. Bar 0,135 To 500,250
  421. X=125 : Y=100 : Z=1 : JUMP=0
  422. Repeat 
  423. R=Rnd(200)+25
  424. Until R=>200 or R<=50
  425. B=Rnd(250) : T=250 : E=(R-B)/21 : P=0
  426.  
  427. Repeat 
  428. Bob 1,X,Y,Z
  429. Bob 2,B,T,6
  430. If JUMP=0 and Jright(1) Then X=X+4
  431. If JUMP=0 and Jleft(1) Then X=X-4
  432. If JUMP=0 and Jdown(1) Then Y=Y+4
  433. If JUMP=0 and Jup(1) Then Y=Y-4 : If Y<100 Then Y=100
  434. If P<>0 and Z=4 Then X=X+8
  435. If P<>0 and Z=5 Then X=X-8
  436. If Z=2 and T=>3 Then Z=4 : X=X+8 : P=1
  437. If Z=3 and T=>3 Then Z=5 : X=X-8 : P=1
  438. If Jright(1) and JUMP=0 and Fire(1) Then JUMP=1 : Z=2
  439. If Jleft(1) and JUMP=0 and Fire(1) Then JUMP=2 : Z=3
  440. B=B+E
  441. T=T-8-(GS(TEAM)-5)
  442. If Bob Col(1) and Y<>120 Then Bell : Wait Vbl : Return 
  443. Wait 5
  444. If P<>0 Then P=P+1 : If P=6 Then P=0 : Y=115 : Bell 
  445. Until T<=80
  446. Wait Vbl 
  447. CS=CS+1 : G(1)=G(1)-1
  448. Return 
  449.  
  450.  
  451. TACK:
  452. Locate ,12 : Pen 11 : Centre "ATTACKING!" : Wait 50
  453. If SCORE+Rnd(12)<CDEF(TEAM)+Rnd(12) Then Locate ,12 : Pen TP(TEAM) : Centre "*DEFENDED*" : Wait 50 : Goto BUM
  454.  
  455. GS=Rnd(TACKE-1)+(12-TACKE)
  456. Locate ,12 : Centre TNAME$(GS)+" SHOOTS" : HK=HK+1 : Wait 50
  457. If TTACK(GS)+Rnd(6)=>CGOAL(TEAM)+Rnd(6) Then Locate ,12 : Centre TNAME$(GS)+" SCORES" : G(GS)=G(GS)+1 : HS=HS+1 : Else Pen TP(TEAM) : Locate ,12 : Centre "    SHOT SAVED    "
  458. Wait 50 : Goto BUM
  459.  
  460. EXTRA:
  461. For I=1 To 18
  462. If TNAME$(I)<>"" Then PEAR(I)=PEAR(I)+1
  463. Next 
  464. Locate ,12 : Pen 2 : Centre "MATCH OVER"
  465. If CS=HS and MUG=>1 and MUG<=4 Then Gosub REPLAY
  466. Locate ,14 : Centre "WAGES  " : Locate 21, : Print WAGES
  467. Locate ,15 : Centre "INCOME   " : Locate 21,
  468.  
  469. MONEY=MONEY-WAGES
  470.  
  471. If CS=>HS+1 and(MUG=0 or MUG=>5) Then MONEY=MONEY+(500+((3-DIV)*50)) : Print 500+((3-DIV)*50) : PTS(TEAM)=PTS(TEAM)+3 : WIN(TEAM)=WIN(TEAM)+1
  472. If CS=HS and(MUG=0 or MUG=>5) Then MONEY=MONEY+(650+((3-DIV)*50)) : Print 650+((3-DIV)*50) : PTS(8)=PTS(8)+1 : PTS(TEAM)=PTS(TEAM)+1 : TIE(8)=TIE(8)+1 : TIE(TEAM)=TIE(TEAM)+1 : If DIV=1 Then MONEY=MONEY+25
  473. If HS=>CS+1 and(MUG=0 or MUG=>5) Then MONEY=MONEY+(750+((3-DIV)*50)) : Print 750+((3-DIV)*50) : PTS(8)=PTS(8)+3 : WIN(8)=WIN(8)+1 : If DIV=1 Then MONEY=MONEY+50
  474.  
  475. If CS=>HS+1 and MUG=>1 and MUG<=4 Then MONEY=MONEY+(500+(MUG*100)) : Print 500+(MUG*100) : MUG=8
  476. If HS=>CS+1 and MUG=>1 and MUG<=4 Then MONEY=MONEY+(750+(MUG*100)) : Print 750+(MUG*100)
  477.  
  478. Locate ,17
  479.  
  480. If MUG=4 Then Centre "CUP WINNERS!" : Print 
  481. If MUG=>1 and MUG=<4 or MUG=8 Then Centre "TV coverage earns ï¿½100" : MONEY=MONEY+100 : Gosub TUP
  482.  
  483. For I=1 To 18
  484. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" and TAGE(I)=>34 Then Centre TNAME$(I)+" retires" : TNAME$(I)="" : Print 
  485. Next 
  486.  
  487. If Rnd(50)=1 Then I=Rnd(11) : If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" Then Centre TNAME$(I)+" dies in car crash!" : TNAME$(I)="" : Print 
  488. If DIV=0 and Rnd(25)=3 Then I=Rnd(11) : If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" Then Print TNAME$(I)+" walks out!" : TNAME$(I)="" : Print 
  489. If DIV=0 and Rnd(20)=3 Then Centre "Crowd trouble costs ï¿½250" : MONEY=MONEY-250 : Print 
  490. If Rnd(50)=13 Then Centre "Team holiday costs ï¿½250" : MONEY=MONEY-250 : Print 
  491. If Rnd(5)=13 Then Centre "Supporters shop earns ï¿½150" : MONEY=MONEY+150 : Print 
  492. If Rnd(50)=45 Then Centre "TV coverage earns ï¿½100" : MONEY=MONEY+100 : Print 
  493. If DIV=1 and Rnd(20)=3 Then Centre "New stand costs ï¿½550" : MONEY=MONEY-550 : Print 
  494. If Rnd((DIV+1)*10)=1 Then Centre "New floodlights cost ï¿½250" : MONEY=MONEY-250 : Print 
  495. If Rnd(5)=13 Then Centre "Snack bar earns ï¿½150" : MONEY=MONEY+150 : Print 
  496. If Rnd(50)=45 Then Centre "New training equipment costs ï¿½100" : MONEY=MONEY-100 : Print 
  497.  
  498. TUP:
  499.  
  500. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=1 or WEEK=8) Then Gosub WEEK1
  501. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=2 or WEEK=9) Then Gosub WEEK2
  502. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=3 or WEEK=10) Then Gosub WEEK3
  503. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=4 or WEEK=11) Then Gosub WEEK4
  504. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=5 or WEEK=12) Then Gosub WEEK5
  505. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=6 or WEEK=13) Then Gosub WEEK6
  506. If MUG<>8 and(MUG=0 or MUG=>5) and(WEEK=7 or WEEK=14) Then Gosub WEEK7
  507.  
  508. TRANS(1)=Rnd(14)+1
  509. TRANS(2)=Rnd(29)+16
  510. TRANS(3)=Rnd(29)+46
  511. TRANS(4)=Rnd(29)+76
  512. TRANS(5)=Rnd(89)+16
  513.  
  514. Wait 15 : Repeat : Until 1=Mouse Key
  515. If MUG=0 or MUG=5 or WEEK=6 Then WEEK=WEEK+1 : Goto MAIN
  516. HS=0 : HK=0 : CK=0 : CS=0 : GO=0
  517. If MUG=8 Then MUG=5
  518. TEAM=WEEK : If MUG<>5 Then MUG=0
  519. If WEEK=>8 Then TEAM=WEEK-7
  520. Cls 0 : Goto MUG
  521.  
  522. REPLAY:
  523. Locate ,16 : Centre "PENALTY SHOOT-OUT" : HOT=0
  524. Wait 15
  525. Repeat : Until 1=Mouse Key
  526. Cls 0 : Pen 2
  527. HS=0 : HK=0 : CK=0 : CS=0 : GO=0
  528. BOTTY: Cls 0 : Pen 2 : GO=GO+1
  529. Locate ,5 : Centre "PENALTY SHOOT OUT"
  530.  
  531. Locate ,7 : Centre "versus"
  532. Locate 10,7 : Pen 11 : Print TEAM$
  533. Locate 24,7 : Pen TP(TEAM) : Print TEAM$(TEAM) : Pen 2
  534. Locate ,9 : Centre "SHOTS" : Print 
  535. Centre "GOALS"
  536.  
  537. Locate 23,9 : Print CK : Locate 13,9 : Print HK
  538. Locate 23,10 : Print CS : Locate 13,10 : Print HS
  539.  
  540. If GO=11 and CS<>HS Then Goto EXTRA
  541. If GO=11 and CS=HS Then GO=8
  542.  
  543. If HK=CK Then Locate ,12 : Centre TEAM$(TEAM)+" SHOOTS"
  544. If HK=CK Then Wait 50 : If TNAME$(1)="P Shilton" Then Gosub SCORE : Bell 
  545. If HK=CK and TNAME$(1)<>"P Shilton" Then Wait 1 : If GS(TEAM)+Rnd(6)=>GOAL+Rnd(6) Then Locate ,12 : Centre TEAM$(TEAM)+" SCORES" : CS=CS+1 : G(1)=G(1)-1 : Else Pen 11 : Locate ,12 : Centre "    SHOT SAVED    "
  546. If HK=CK Then CK=CK+1 : Pen 2 : Wait 50 : Goto BOTTY
  547.  
  548. GS=0
  549. If HK<=10 Then HOT=HK
  550. If HK=>11 Then HOT=HK-10
  551. For I=1 To 11
  552. RED=10
  553. For A=1 To 11
  554. If TTACK(I)=>TTACK(A)+1 Then RED=RED-1
  555. If TTACK(I)=TTACK(A) and I>A Then RED=RED-1
  556. Next 
  557. If RED=HOT Then GS=I
  558. Next 
  559.  
  560. Locate ,12 : Pen 11 : Centre TNAME$(GS)+" SHOOTS" : HK=HK+1 : Wait 50
  561. If TTACK(GS)+Rnd(8)=>CGOAL(TEAM)+Rnd(5) Then Locate ,12 : Centre TNAME$(GS)+" SCORES" : G(GS)=G(GS)+1 : HS=HS+1 : Else Locate ,12 : Pen TP(TEAM) : Centre "    SHOT SAVED    "
  562. Wait 50 : Goto BOTTY
  563.  
  564. Goto MUG
  565.  
  566. EOS:
  567. Gosub TABLE
  568. Cls 0
  569. Locate ,10 : Centre "END OF SEASON"
  570. Locate ,12
  571. If POS(8)=0 and DIV<>0 Then Centre "PROMOTED!" : DIV=DIV-1
  572. If POS(8)=0 and DIV=0 Then Centre "CHAMPIONS!"
  573. If POS(8)=7 Then Centre "RELEGATED, YOU ARE SACKED"
  574. WEEK=1 : SEASON=SEASON+1
  575. For I=1 To 18
  576. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" Then TAGE(I)=TAGE(I)+1
  577. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" and TAGE(I)=>31 Then TGOAL(I)=TGOAL(I)-1 : If TGOAL(I)<=-1 Then TGOAL(I)=0
  578. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" and TAGE(I)=>31 Then TDEF(I)=TDEF(I)-1 : If TDEF(I)<=-1 Then TDEF(I)=0
  579. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" and TAGE(I)>=31 Then TMID(I)=TMID(I)-1 : If TMID(I)<=-1 Then TMID(I)=0
  580. If TNAME$(I)<>"" and TNAME$(I)<>"P Shilton" and TAGE(I)=>31 Then TTACK(I)=TTACK(I)-1 : If TTACK(I)<=-1 Then TTACK(I)=0
  581.  
  582. Next 
  583. Wait 15
  584. Repeat : Until 1=Mouse Key
  585. For I=1 To 8 : PTS(I)=0 : WIN(I)=0 : TIE(I)=0 : Next 
  586. If POS(8)<>0 or DIV=0 Then Goto MAIN
  587. For I=1 To 7 : Read TEAM$(I) : Read TP(I),CGOAL(I),CDEF(I),CMID(I),CTACK(I),GS(I),SKILL(I),TATIC$(I) : Next 
  588. Goto MAIN
  589.  
  590. WEEK1:
  591. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  592.  
  593. If SKILL(3)=>SKILL(6)+1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  594. If SKILL(3)<=SKILL(6)-1 Then PTS(6)=PTS(6)+3 : WIN(6)=WIN(6)+1
  595. If SKILL(3)=SKILL(6) Then PTS(3)=PTS(3)+1 : PTS(6)=PTS(6)+1 : TIE(3)=TIE(3)+1 : TIE(6)=TIE(6)+1
  596.  
  597. If SKILL(4)=>SKILL(5)+1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  598. If SKILL(4)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  599. If SKILL(4)=SKILL(5) Then PTS(4)=PTS(4)+1 : PTS(5)=PTS(5)+1 : TIE(5)=TIE(5)+1 : TIE(4)=TIE(4)+1
  600.  
  601. If SKILL(2)=>SKILL(7)+1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  602. If SKILL(2)<=SKILL(7)-1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  603. If SKILL(2)=SKILL(7) Then PTS(2)=PTS(2)+1 : PTS(7)=PTS(7)+1 : TIE(2)=TIE(2)+1 : TIE(7)=TIE(7)+1
  604.  
  605. Return 
  606.  
  607. WEEK2:
  608. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  609.  
  610. If SKILL(3)=>SKILL(5)+1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  611. If SKILL(3)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  612. If SKILL(3)=SKILL(5) Then PTS(3)=PTS(3)+1 : PTS(5)=PTS(5)+1 : TIE(3)=TIE(3)+1 : TIE(5)=TIE(5)+1
  613.  
  614. If SKILL(4)=>SKILL(6)+1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  615. If SKILL(4)<=SKILL(6)-1 Then PTS(6)=PTS(6)+3 : WIN(6)=WIN(6)+1
  616. If SKILL(4)=SKILL(6) Then PTS(4)=PTS(4)+1 : PTS(6)=PTS(6)+1 : TIE(4)=TIE(4)+1 : TIE(6)=TIE(6)+1
  617.  
  618. If SKILL(1)=>SKILL(7)+1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  619. If SKILL(1)<=SKILL(7)-1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  620. If SKILL(1)=SKILL(7) Then PTS(1)=PTS(1)+1 : PTS(7)=PTS(7)+1 : TIE(1)=TIE(1)+1 : TIE(7)=TIE(7)+1
  621.  
  622. Return 
  623.  
  624. WEEK3:
  625. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  626.  
  627. If SKILL(2)=>SKILL(4)+1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  628. If SKILL(2)<=SKILL(4)-1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  629. If SKILL(2)=SKILL(4) Then PTS(4)=PTS(4)+1 : PTS(2)=PTS(2)+1 : TIE(4)=TIE(4)+1 : TIE(2)=TIE(2)+1
  630.  
  631. If SKILL(7)=>SKILL(5)+1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  632. If SKILL(7)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  633. If SKILL(7)=SKILL(5) Then PTS(7)=PTS(7)+1 : PTS(5)=PTS(5)+1 : TIE(5)=TIE(5)+1 : TIE(7)=TIE(7)+1
  634.  
  635. If SKILL(6)=>SKILL(1)+1 Then PTS(6)=PTS(6)+3 : WIN(6)=WIN(6)+1
  636. If SKILL(6)<=SKILL(1)-1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  637. If SKILL(6)=SKILL(1) Then PTS(6)=PTS(6)+1 : PTS(1)=PTS(1)+1 : TIE(1)=TIE(1)+1 : TIE(6)=TIE(6)+1
  638.  
  639. Return 
  640.  
  641. WEEK4:
  642. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  643.  
  644. If SKILL(2)=>SKILL(3)+1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  645. If SKILL(2)<=SKILL(3)-1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  646. If SKILL(2)=SKILL(3) Then PTS(3)=PTS(3)+1 : PTS(2)=PTS(2)+1 : TIE(3)=TIE(3)+1 : TIE(2)=TIE(2)+1
  647.  
  648. If SKILL(7)=>SKILL(6)+1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  649. If SKILL(7)<=SKILL(6)-1 Then PTS(7)=PTS(6)+3 : WIN(6)=WIN(6)+1
  650. If SKILL(7)=SKILL(6) Then PTS(6)=PTS(6)+1 : PTS(7)=PTS(7)+1 : TIE(7)=TIE(7)+1 : TIE(6)=TIE(6)+1
  651.  
  652. If SKILL(1)=>SKILL(5)+1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  653. If SKILL(1)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  654. If SKILL(1)=SKILL(5) Then PTS(1)=PTS(1)+1 : PTS(5)=PTS(5)+1 : TIE(1)=TIE(1)+1 : TIE(5)=TIE(5)+1
  655.  
  656. Return 
  657.  
  658. WEEK5:
  659. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  660.  
  661. If SKILL(2)=>SKILL(6)+1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  662. If SKILL(2)<=SKILL(6)-1 Then PTS(6)=PTS(6)+3 : WIN(6)=WIN(6)+1
  663. If SKILL(2)=SKILL(6) Then PTS(2)=PTS(2)+1 : PTS(6)=PTS(6)+1 : TIE(2)=TIE(2)+1 : TIE(6)=TIE(6)+1
  664.  
  665. If SKILL(3)=>SKILL(7)+1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  666. If SKILL(3)<=SKILL(7)-1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  667. If SKILL(3)=SKILL(7) Then PTS(3)=PTS(3)+1 : PTS(7)=PTS(7)+1 : TIE(3)=TIE(3)+1 : TIE(7)=TIE(7)+1
  668.  
  669. If SKILL(1)=>SKILL(4)+1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  670. If SKILL(1)<=SKILL(4)-1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  671. If SKILL(1)=SKILL(4) Then PTS(1)=PTS(1)+1 : PTS(4)=PTS(4)+1 : TIE(1)=TIE(1)+1 : TIE(4)=TIE(4)+1
  672.  
  673. Return 
  674.  
  675. WEEK6:
  676. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  677.  
  678. If SKILL(2)=>SKILL(5)+1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  679. If SKILL(2)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  680. If SKILL(2)=SKILL(5) Then PTS(2)=PTS(2)+1 : PTS(5)=PTS(5)+1 : TIE(5)=TIE(5)+1 : TIE(2)=TIE(2)+1
  681.  
  682. If SKILL(3)=>SKILL(1)+1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  683. If SKILL(3)<=SKILL(1)-1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  684. If SKILL(3)=SKILL(1) Then PTS(3)=PTS(3)+1 : PTS(1)=PTS(1)+1 : TIE(3)=TIE(3)+1 : TIE(1)=TIE(1)+1
  685.  
  686. If SKILL(4)=>SKILL(7)+1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  687. If SKILL(4)<=SKILL(7)-1 Then PTS(7)=PTS(7)+3 : WIN(7)=WIN(7)+1
  688. If SKILL(4)=SKILL(7) Then PTS(4)=PTS(4)+1 : PTS(7)=PTS(7)+1 : TIE(4)=TIE(4)+1 : TIE(7)=TIE(7)+1
  689.  
  690. Return 
  691.  
  692. WEEK7:
  693. For I=1 To 7 : SKILL(I)=SKILL(I)+Rnd(10) : Next 
  694.  
  695. If SKILL(3)=>SKILL(4)+1 Then PTS(3)=PTS(3)+3 : WIN(3)=WIN(3)+1
  696. If SKILL(3)<=SKILL(4)-1 Then PTS(4)=PTS(4)+3 : WIN(4)=WIN(4)+1
  697. If SKILL(3)=SKILL(4) Then PTS(3)=PTS(3)+1 : PTS(4)=PTS(4)+1 : TIE(3)=TIE(3)+1 : TIE(4)=TIE(4)+1
  698.  
  699. If SKILL(6)=>SKILL(5)+1 Then PTS(6)=PTS(6)+3 : WIN(6)=WIN(6)+1
  700. If SKILL(6)<=SKILL(5)-1 Then PTS(5)=PTS(5)+3 : WIN(5)=WIN(5)+1
  701. If SKILL(6)=SKILL(5) Then PTS(6)=PTS(6)+1 : PTS(5)=PTS(5)+1 : TIE(5)=TIE(5)+1 : TIE(6)=TIE(6)+1
  702.  
  703. If SKILL(2)=>SKILL(1)+1 Then PTS(2)=PTS(2)+3 : WIN(2)=WIN(2)+1
  704. If SKILL(2)<=SKILL(1)-1 Then PTS(1)=PTS(1)+3 : WIN(1)=WIN(1)+1
  705. If SKILL(2)=SKILL(1) Then PTS(2)=PTS(2)+1 : PTS(1)=PTS(1)+1 : TIE(1)=TIE(1)+1 : TIE(2)=TIE(2)+1
  706.  
  707. Return 
  708.  
  709. Data "A Nicholls"
  710. Data "A Burrows"
  711. Data "P Swan"
  712. Data "K Hill"
  713. Data "A Comyn"
  714. Data "S Castle"
  715. Data "S McCall"
  716. Data "C Skinner"
  717. Data "W Burnett"
  718. Data "D Foreman"
  719. Data "K Nugent"
  720. Data "R Landon"
  721. Data "M Evans"
  722.  
  723. Data "F Digby",6,0,0,0
  724. Data "L Sealey",4,0,1,0
  725. Data "D Seaman",6,0,0,1
  726. Data "B Gunn",4,0,0,0
  727. Data "M Bosnich",6,1,0,0
  728. Data "N Southall",6,0,0,0
  729. Data "T Flowers",6,0,0,0
  730. Data "I Walker",4,0,1,0
  731. Data "A Kelly",6,1,0,0
  732. Data "K Pressman",4,0,0,0
  733. Data "J Lukic",4,1,1,1
  734. Data "D Beasant",5,1,0,0
  735. Data "C Forrest",6,0,1,0
  736. Data "T Coton",4,0,0,1
  737. Data "C Woods",6,0,0,0
  738.  
  739. Data "D Walker",0,6,2,1
  740. Data "G Mabbut",0,6,2,2
  741. Data "P Parker",0,6,2,0
  742. Data "D Peacock",0,6,2,1
  743. Data "T Adams",0,6,1,0
  744. Data "L Dixon",0,6,2,1
  745. Data "G Pallister",0,6,2,1
  746. Data "F Sinclar",0,6,2,2
  747. Data "A Linighan",0,6,2,0
  748. Data "J Dicks",0,4,2,1
  749. Data "A Hill",0,6,1,0
  750. Data "N Ruddock",0,4,2,4
  751. Data "S Bruce",0,5,2,4
  752. Data "G Hoddle",0,6,1,3
  753. Data "T Dorigo",0,6,2,0
  754. Data "R Jones",0,4,2,1
  755. Data "P McGrath",0,6,1,3
  756. Data "D Irwin",0,5,0,2
  757. Data "G LeSaux",0,6,1,0
  758. Data "M Wright",0,4,2,1
  759.  
  760. Data "D Lee",0,6,1,0
  761. Data "N Summerbee",0,6,2,4
  762. Data "E Barrett",0,5,2,4
  763. Data "T Phelan",0,6,1,3
  764. Data "R Nilsson",0,6,2,0
  765. Data "J Poslton",0,4,2,1
  766. Data "M Bowen",0,6,1,3
  767. Data "J Scales",0,5,0,2
  768. Data "S Pearce",0,6,1,0
  769. Data "C Short",0,4,0,1
  770.  
  771. Data "J Goss",0,2,4,3
  772. Data "B Robson",0,1,5,2
  773. Data "T Sinclar",0,1,6,3
  774. Data "V Jones",0,0,4,3
  775. Data "D Rocastle",0,2,5,1
  776. Data "J Barnes",0,2,6,3
  777. Data "R Wilkins",0,2,5,1
  778. Data "C Waddle",0,1,5,3
  779. Data "L Sharpe",0,1,6,4
  780. Data "A Sinton",0,0,6,5
  781. Data "R Whelan",0,2,4,3
  782. Data "L Clarke",0,1,5,2
  783. Data "R Lee",0,1,6,3
  784. Data "R Houghton",0,0,6,3
  785. Data "B McClair",0,4,5,4
  786. Data "D Platt",0,2,6,3
  787. Data "P Gasgoine",0,2,6,5
  788. Data "P Ince",0,1,5,2
  789. Data "E Cantona",0,1,6,6
  790. Data "R Giggs",0,0,6,3
  791. Data "M LeTisser",0,1,6,4
  792. Data "C Palmer",0,1,4,1
  793. Data "J Dozzel",0,1,4,1
  794. Data "R Keane",0,1,6,2
  795. Data "A Limpar",0,0,4,1
  796. Data "A Townsend",0,0,6,3
  797. Data "R Fox",0,2,4,2
  798. Data "D Batty",0,1,6,2
  799. Data "J Polston",0,1,4,0
  800. Data "P Merson",0,0,6,3
  801.  
  802. Data "A Cole",0,1,2,6
  803. Data "A Shearer",0,2,2,6
  804. Data "I Wright",0,2,3,5
  805. Data "S Collymore",0,1,1,4
  806. Data "C Sutton",0,0,0,6
  807. Data "M Stein",0,2,2,5
  808. Data "M Bright",0,1,3,5
  809. Data "I Rush",0,0,0,5
  810. Data "D Dublin",0,0,0,6
  811. Data "R Fowler",0,2,2,4
  812. Data "T Cotte",0,1,1,3
  813. Data "M Hughes",0,0,2,5
  814. Data "K Campbell",0,0,0,3
  815. Data "D Saunders",0,1,2,4
  816. Data "N Quinn",0,1,1,3
  817. Data "J Fjortoft",0,0,0,6
  818. Data "D Holdsworth",1,0,0,4
  819. Data "N Barmby",0,1,3,5
  820. Data "J Fashanu",0,0,2,3
  821. Data "L Chapman",0,2,3,4
  822. Data "J Aldridge",0,1,1,4
  823. Data "R Rosenthal",0,4,4,5
  824. Data "D Hirst",0,2,2,4
  825. Data "A Smith",1,1,4,5
  826. Data "P Beardsley",0,2,4,5
  827. Data "J Flo",0,3,3,5
  828. Data "R Wallace",0,1,1,4
  829. Data "B Deane",0,2,2,5
  830. Data "N Clough",0,1,1,5
  831. Data "R Wegerle",0,3,3,5
  832.  
  833. Data "Bristol R",6,5,16,22,20,6,17,"253"
  834. Data "Oxford",2,5,16,17,10,4,0,"442"
  835. Data "Brighton",4,5,18,20,20,6,15,"343"
  836. Data "Huddersfield",6,7,26,17,15,6,10,"433"
  837. Data "Swansea",2,5,9,26,22,7,20,"244"
  838. Data "Bradford",6,8,30,13,10,4,4,"532"
  839. Data "Hull C",1,8,9,25,20,8,19,"253"
  840.  
  841. Data "Exeter C",4,5,24,24,13,5
  842. Data "Tranmere R",2,5,28,30,15,7.5
  843. Data "Everton",6,7,15,37,20,8
  844. Data "Man Utd",4,9,17,43,25,9
  845.  
  846. Data "Southend",6,5,28,31,13,6,12,"442"
  847. Data "Grimsby",2,6,18,30,20,7,5,"343"
  848. Data "Milwall",6,7,18,35,20,8,23,"343"
  849. Data "Bolton W",2,7,12,40,24,8,30,"253"
  850. Data "Derby",2,6,16,32,27,8,1,"253"
  851. Data "Stoke C",4,8,32,32,14,7,15,"442"
  852. Data "Luton T",2,6,12,38,28,9,28,"253"
  853.  
  854. Data "Liverpool",4,7,25,45,17,8,27,"352"
  855. Data "Man Utd",4,9,17,43,25,9,29,"253"
  856. Data "Spurs",2,7,34,36,17,8,23,"442"
  857. Data "Arsenal",4,8,16,45,22,9,30,"253"
  858. Data "Norwich",5,8,24,36,24,9,25,"343"
  859. Data "Blackburn R",6,9,17,45,25,9,33,"253"
  860. Data "West Ham",14,8,16,34,34,4,25,"244"